﻿Public Class FRMRegistrarEmpresa

    Private Sub BTNregistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNregistrar.Click
        'Dim myempresa As New Empresa
        'myempresa.nomEmpresa = TXTnombreempresa.Text
        'myempresa.direccionEmpresa = TXTdireccionempresa.Text
        'myempresa.numerodeTelefonoEmpresa = TXTtelefonodeempresa.Text
        'myempresa.personaContactoEmpresa = TXTpersonacontacto.Text
        'myempresa.domicilioFiscalEmpresa = TXTdomiciliofiscal.Text

        'CType(Me.MdiParent, frmContenedor).ListaempresaTotales.AddFirst(myempresa)
        'MsgBox("SE REGISTRO A LA EMPRESA")
        'Me.Hide()
        Try

            Dim myconeccion As New Conexion
            myconeccion.conectar()
            Dim consulta As String

            consulta = "insert into EMPRESA values ('" + TXTnombreempresa.Text + "','" + TXTdireccionempresa.Text + "','" + TXTpersonacontacto.Text + "','" + TXTtelefonodeempresa.Text + "','" + TXTdomiciliofiscal.Text + "')"
            myconeccion.consulta(consulta)
        Catch ex As Exception
            MsgBox(ex)

        End Try
    End Sub
End Class